home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / misc / softboot331.lha / softboot3.31 / SoftBoot.i < prev   
Text File  |  1992-10-22  |  5KB  |  347 lines
  1. ;======================================================================
  2. ;
  3. ;    SetCPU V1.60
  4. ;    by Dave Haynie, April 13, 1990
  5. ;    Released to the Public Domain
  6. ;
  7. ;    Assembly Header File
  8. ;
  9. ;    All assembly files need this included
  10. ;
  11. ;
  12. ;       Modified for 68040 support 16 dec 1991, Greg Tibbs
  13. ;       for use with SoftBoot V2.27 & later
  14. ;
  15. ;======================================================================
  16.  
  17.  
  18. _PFLUSHA040    macro    
  19.         dc.w    $f518
  20.         endm
  21.  
  22. _CPUSHA040    macro
  23.         dc.w    $f4f8
  24.         endm
  25.  
  26. _CINVA040        macro    
  27.         dc.w    $f4d8
  28.         endm
  29.  
  30. _MOVEC        macro    
  31.         ifc '\1','tc'
  32.             ifc '\2','d0'
  33.             dc.w    $4e7a    ; MOVEC    tc,d0
  34.             dc.w    $0003
  35.             mexit
  36.             endc
  37.             ifc '\2','d1'
  38.             dc.w    $4e7a    ; MOVEC    tc,d1
  39.             dc.w    $1003
  40.             mexit
  41.             endc
  42.         endc
  43.         ifc '\2','tc'
  44.             ifc '\1','d0'
  45.             dc.w    $4e7b    ; MOVEC d0,tc
  46.             dc.w    $0003
  47.             mexit
  48.             endc
  49.             ifc '\1','d1'
  50.             dc.w    $4e7b    ; MOVEC d1,tc
  51.             dc.w    $1003
  52.             mexit
  53.             endc
  54.         endc
  55.         ifc '\1','cacr'
  56.             ifc '\2','d0'
  57.             dc.w    $4e7a    ; MOVEC    cacr,d0
  58.             dc.w    $0002
  59.             mexit
  60.             endc
  61.             ifc '\2','d1'
  62.             dc.w    $4e7a    ; MOVEC    cacr,d1
  63.             dc.w    $1002
  64.             mexit
  65.             endc
  66.         endc
  67.         ifc '\2','cacr'
  68.             ifc '\1','d0'
  69.             dc.w    $4e7b    ; MOVEC d0,cacr
  70.             dc.w    $0002
  71.             mexit
  72.             endc
  73.             ifc '\1','d1'
  74.             dc.w    $4e7b    ; MOVEC d1,cacr
  75.             dc.w    $1002
  76.             mexit
  77.             endc
  78.         endc
  79.         ifc '\1','itt0'
  80.             ifc '\2','d0'
  81.             dc.w    $4e7a    ; MOVEC    itt0,d0
  82.             dc.w    $0004
  83.             mexit
  84.             endc
  85.             ifc '\2','d1'
  86.             dc.w    $4e7a    ; MOVEC    itt0,d1
  87.             dc.w    $1004
  88.             mexit
  89.             endc
  90.         endc
  91.         ifc '\2','itt0'
  92.             ifc '\1','d0'
  93.             dc.w    $4e7b    ; MOVEC d0,itt0
  94.             dc.w    $0004
  95.             mexit
  96.             endc
  97.             ifc '\1','d1'
  98.             dc.w    $4e7b    ; MOVEC d1,itt0
  99.             dc.w    $1004
  100.             mexit
  101.             endc
  102.         endc
  103.         ifc '\1','itt1'
  104.             ifc '\2','d0'
  105.             dc.w    $4e7a    ; MOVEC    itt1,d0
  106.             dc.w    $0005
  107.             mexit
  108.             endc
  109.             ifc '\2','d1'
  110.             dc.w    $4e7a    ; MOVEC    itt1,d1
  111.             dc.w    $1005
  112.             mexit
  113.             endc
  114.         endc
  115.         ifc '\2','itt1'
  116.             ifc '\1','d0'
  117.             dc.w    $4e7b    ; MOVEC d0,itt1
  118.             dc.w    $0005
  119.             mexit
  120.             endc
  121.             ifc '\1','d1'
  122.             dc.w    $4e7b    ; MOVEC d1,itt1
  123.             dc.w    $1005
  124.             mexit
  125.             endc
  126.         endc
  127.         ifc '\1','dtt0'
  128.             ifc '\2','d0'
  129.             dc.w    $4e7a    ; MOVEC    dtt0,d0
  130.             dc.w    $0006
  131.             mexit
  132.             endc
  133.             ifc '\2','d1'
  134.             dc.w    $4e7a    ; MOVEC    dtt0,d1
  135.             dc.w    $1006
  136.             mexit
  137.             endc
  138.         endc
  139.         ifc '\2','dtt0'
  140.             ifc '\1','d0'
  141.             dc.w    $4e7b    ; MOVEC d0,dtt0
  142.             dc.w    $0006
  143.             mexit
  144.             endc
  145.             ifc '\1','d1'
  146.             dc.w    $4e7b    ; MOVEC d1,dtt0
  147.             dc.w    $1006
  148.             mexit
  149.             endc
  150.         endc
  151.         ifc '\1','dtt1'
  152.             ifc '\2','d0'
  153.             dc.w    $4e7a    ; MOVEC    dtt1,d0
  154.             dc.w    $0007
  155.             mexit
  156.             endc
  157.             ifc '\2','d1'
  158.             dc.w    $4e7a    ; MOVEC    dtt1,d1
  159.             dc.w    $1007
  160.             mexit
  161.             endc
  162.         endc
  163.         ifc '\2','dtt1'
  164.             ifc '\1','d0'
  165.             dc.w    $4e7b    ; MOVEC d0,dtt1
  166.             dc.w    $0007
  167.             mexit
  168.             endc
  169.             ifc '\1','d1'
  170.             dc.w    $4e7b    ; MOVEC d1,dtt1
  171.             dc.w    $1007
  172.             mexit
  173.             endc
  174.         endc
  175.         ifc '\1','srp'
  176.             ifc '\2','d0'
  177.             dc.w    $4e7a    ; MOVEC    srp,d0
  178.             dc.w    $0807
  179.             mexit
  180.             endc
  181.             ifc '\2','d1'
  182.             dc.w    $4e7a    ; MOVEC    srp,d1
  183.             dc.w    $1807
  184.             mexit
  185.             endc
  186.         endc
  187.         ifc '\2','srp'
  188.             ifc '\1','d0'
  189.             dc.w    $4e7b    ; MOVEC d0,srp
  190.             dc.w    $0807
  191.             mexit
  192.             endc
  193.             ifc '\1','d1'
  194.             dc.w    $4e7b    ; MOVEC d1,srp
  195.             dc.w    $1807
  196.             mexit
  197.             endc
  198.         endc
  199.         ifc '\1','urp'
  200.             ifc '\2','d0'
  201.             dc.w    $4e7a    ; MOVEC    urp,d0
  202.             dc.w    $0806
  203.             mexit
  204.             endc
  205.             ifc '\2','d1'
  206.             dc.w    $4e7a    ; MOVEC    urp,d1
  207.             dc.w    $1806
  208.             mexit
  209.             endc
  210.         endc
  211.         ifc '\2','urp'
  212.             ifc '\1','d0'
  213.             dc.w    $4e7b    ; MOVEC d0,urp
  214.             dc.w    $0806
  215.             mexit
  216.             endc
  217.             ifc '\1','d1'
  218.             dc.w    $4e7b    ; MOVEC d1,urp
  219.             dc.w    $1806
  220.             mexit
  221.             endc
  222.         endc
  223.         ifc '\1','vbr'
  224.             ifc '\2','d0'
  225.             dc.w    $4e7a    ; MOVEC    vbr,d0
  226.             dc.w    $0801
  227.             mexit
  228.             endc
  229.             ifc '\2','d1'
  230.             dc.w    $4e7a    ; MOVEC    vbr,d1
  231.             dc.w    $1801
  232.             mexit
  233.             endc
  234.         endc
  235.         ifc '\2','vbr'
  236.             ifc '\1','d0'
  237.             dc.w    $4e7b    ; MOVEC d0,vbr
  238.             dc.w    $0801
  239.             mexit
  240.             endc
  241.             ifc '\1','d1'
  242.             dc.w    $4e7b    ; MOVEC d1,vbr
  243.             dc.w    $1801
  244.             mexit
  245.             endc
  246.         endc
  247.     endm
  248.  
  249. _PMOVE        macro    
  250.         ifc '\1','tc'
  251.             ifc '\2','(sp)'
  252.             dc.w    $f017    ; PMOVE tc,(sp)
  253.             dc.w    $4200
  254.             mexit
  255.             endc
  256.             ifc '\2','(a0)'
  257.             dc.w    $f010    ; PMOVE tc,(a0)
  258.             dc.w    $4200
  259.             mexit
  260.             endc
  261.         endc
  262.         ifc '\1','crp'
  263.             ifc '\2','(a0)'
  264.             dc.w    $f010    ; PMOVE    crp,(a0)
  265.             dc.w    $4e00
  266.             mexit
  267.             endc
  268.         endc
  269.         ifc '\1','(a0)'
  270.             ifc '\2','crp'
  271.             dc.w    $f010    ; PMOVE    (a0),crp
  272.             dc.w    $4c00
  273.             mexit
  274.             endc
  275.             ifc '\2','tc'
  276.             dc.w    $f010    ; PMOVE (a0),tc
  277.             dc.w    $4000
  278.             mexit
  279.             endc
  280.             ifc '\2','tt0'
  281.             dc.w    $f010    ; PMOVE    (a0),tt0
  282.             dc.w    $0800
  283.             mexit
  284.             endc
  285.             ifc '\2','tt1'
  286.             dc.w    $f010    ; PMOVE (a0),tt1
  287.             dc.w    $0c00
  288.             mexit
  289.             endc
  290.         endc
  291.         ifc '\1','(a1)'
  292.             ifc '\2','crp'
  293.             dc.w    $f011    ; PMOVE (a1),crp
  294.             dc.w    $4c00
  295.             mexit
  296.             endc
  297.         endc
  298.         endm
  299.  
  300. _PFLUSHA030    macro    
  301.         dc.w    $f000
  302.         dc.w    $2400
  303.         endm
  304.  
  305.  
  306. CALLSYS        macro   *
  307.         jsr     LVO\1(A6)
  308.         endm
  309.  
  310. PFLUSHA_    macro    *
  311.         dc.w    $f000
  312.         dc.w    $2400
  313.         endm
  314.  
  315. CIB_ENABLE    EQU    0
  316. CIB_FREEZE    EQU    1
  317. CIB_ENTRY    EQU    2
  318. CIB_CLEAR    EQU    3
  319. CIB_BURST    EQU    4
  320.  
  321. CDB_ENABLE    EQU    8
  322. CDB_FREEZE    EQU    9
  323. CDB_ENTRY    EQU    10
  324. CDB_CLEAR    EQU    11
  325. CDB_BURST    EQU    12
  326. CDB_WALLOC    EQU    13
  327.  
  328. CIB_ENABLE40    EQU    15
  329. CDB_ENABLE40    EQU    31
  330.  
  331. AFB_68020      EQU     1
  332. AFB_68030    EQU    2
  333. AFB_68040    EQU    3
  334. AFB_68882    EQU    5
  335.  
  336. ATNFLGS        EQU    $129
  337.  
  338. LVOSupervisor    EQU    -30
  339. LVOSuperState    EQU    -150
  340. LVOFindTask    EQU    -294
  341. LVOAllocTrap    EQU    -342
  342. LVOFreeTrap    EQU    -348
  343. LVOCacheClearU    EQU    -636
  344. LVOCacheControl    EQU    -648
  345.  
  346. ANYCREG        EQU    $00dff010
  347.